<script>on MouseUpglobal gOtherCdList6get doubleClick()if gOtherCdList6 = "" then exit MouseUpadd 1 to line 1 of gOtherCdList6LinkToCard Line (line 1 of gOtherCdList6) of gOtherCdList6,"none"unlock screen with wipe leftEnd MouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>409</left>
<top>315</top>
<right>427</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on MouseUpglobal gOtherCdList6get doubleClick()if gOtherCdList6 = "" then exit MouseUpsubtract 1 from line 1 of gOtherCdList6LinkToCard Line (line 1 of gOtherCdList6) of gOtherCdList6,"none"unlock screen with wipe rightEnd MouseUp</script>
<script>on MouseUpglobal gTheDepths6get DoubleClick()put fld "PresPath" into dataput "" into theListput number of lines of data into numLinesput line 3 of gTheDepths6 into maxDepthput 99999999999 into lowDepthrepeat with z = 1 to numLinesspinCursorput line z of data into thisLineput word 1 of item 5 of thisLine into thisDepthif thisDepth ≤ lowDepth then put thisDepth into lowDepthif thisDepth ≤ maxDepth or thisDepth is "Any" thenput last item of thisLine into thisPresrepeat until "≈" is not in thisPresput "," into char offset("≈",thisPres) of thisPresend repeatput number of chars of thisPres into numCif char numC-1 to numC of thisPres = "/C" thenput " (Color)" into char numC-1 to numC of thisPresend ifput z & "." && removePath(thisPres) & return after theListend ifend repeatif number of lines of theList > 1 thenput ListSelect ("D",theList,"Select a file to view:") into theFilego this cdif theFile = "" then exit mouseUpput lineOffset(theFile,theList) into theLineput line theLine of data into theFileelse if number of lines of theList = 0 thenbeepif lowDepth= 8 thenanswer "This presentation requires a 256 color capable machine."else if lowDepth = 24 or lowDepth = 32 thenanswer "This presentation requires a 24-bit or 32-bit color capable machine."-- else if lowDepth = 32 then-- answer "This presentation requires a 32-bit color capable machine."end ifexit mouseUpelse put line 1 of data into theFileshowPres theFileEnd MouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>234</left>
<top>315</top>
<right>277</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Script</name>
<script>on MouseUpglobal gTheDepths6get DoubleClick()put fld "ScriptPath" into dataput "" into theListput number of lines of data into numLinesput line 3 of gTheDepths6 into maxDepthrepeat with z = 1 to numLinesspinCursorput line z of data into thisLineput word 1 of item 6 of thisLine into thisDepthif thisDepth ≤ maxDepth or thisDepth is "Any" thenput item 10 to number of items of thisLine of thisLine into thisPresput number of chars of thisPres into numCif char numC-1 to numC of thisPres = "/C" thenput " (Color)" into char numC-1 to numC of thisPresend ifput z & "." && removePath(thisPres) & return after theListend ifend repeatif number of lines of theList > 1 thenput ListSelect ("D",theList,"Select a file to view:") into theFilego this cdif theFile = "" then exit mouseUpput lineOffset(theFile,theList) into theLineput line theLine of data into theFileelse if number of lines of theList = 0 thenbeepanswer "This presentation requires a 256 color capable machine."exit mouseUpelse put line 1 of data into theFileshowPres theFileEnd MouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>285</left>
<top>315</top>
<right>328</right>
<bottom>336</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DownLoad</name>
<script>on MouseUpglobal gTheError,gCDVolume6SpinCursorput "" into gTheErrorput "" into theFilesif fld "CopyPath" is not "" thenput gCDVolume6 & fld "CopyPath" into sourcePathelseif fld "PresPath" is not "" then put fld "PresPath" into theFilesif fld "ScriptPath" is not "" then put return & fld "ScriptPath" after theFilesrepeat until line 1 of theFiles is not ""delete line 1 of theFilesend repeatif number of lines of theFiles = 1 and last char of item 1 of theFiles is not ":" thenput "This file is" into promptelse put "These files are" into promptSpinCursorput last item of line 1 of theFiles into sourcePathrepeat until "≈" is not in sourcePathput "," into char offset("≈",sourcePath) of sourcePathend repeatput gCDVolume6 & pathway(sourcePath) into sourcePathend ifput folderSize(sourcePath) into reqSpaceif reqSpace contains "Error" thenanswer "Unable to copy files."& return & reqSpaceexit MouseUpend ifanswer prompt && reqSpace div 1024&"K and may take a while to copy." with "Cancel" or "Continue"go this cdif it = "Cancel" then exit MouseUpSpinCursorput lastFolder(sourcePath) into defaultif last char of default is ":" then delete last char of defaultask file "Save file(s) to what folder?" with defaultif it = "" then exit mouseUpput it into thePathgo this cdput char 1 to offset(":",thePath) of thePath into theVolumeput diskSpaceAvail(theVolume) into spaceAvailif gTheError is not empty thenanswer "Sorry, unable to copy files: " & return & gTheErrorput "" into gTheErrorexit mouseupend ifif spaceAvail < reqSpace*1.05 thendelete last char of theVolumebeepanswer "There is not enough space on the volume “"& theVolume &"” to copy" & return & "“" &¬fld "Title" & "”." & return & "Space required : "& reqSpace div 1024 & "K" & return &¬"Space available : " & spaceAvail div 1024 & "K" with "Cancel"exit MouseUpend ifSpinCursorif length of thePath+31 > 250 thenbeepanswer "You specified a path too far down (more than 250 chars)."& return &¬"If you wish to install this, please try again." with "Cancel"exit MouseUpend ifprompt 1,"Copying File(s)...Please wait..."SpinCursorCopyFolder sourcePath,thePath,trueput the result into OsErrprompt 3if OsErr contains "Error" thenanswer "Sorry, unable to copy files: " & return & OsErrexit mouseupend ifSpinCursorEnd MouseUpfunction lastFolder thePathput number of chars of thePath into PathLengthrepeat with i = PathLength down to 1if char i of thePath = ":" then exit repeatend repeatsubtract 1 from irepeat with z = i down to 1if char z of thePath = ":" then exit repeatend repeatreturn char z+1 to i of thePathend lastFolder</script>
</part>
<part>
<id>33</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>56</top>
<right>512</right>
<bottom>87</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>ScriptPath</name>
<script>--Path&File (No Vol),type,Bit depths,Boolean (GS),CPU,Mem Reqon MouseUpglobal gCDVolume6put the OptionKey is up into addFolderput (the CommandKey is down or me = "") into checkTitleif the ShiftKey is down or checkTitle thenput 0 into exactelse put 1 into exactput gCDVolume6 into volput word 2 of the clickLine into theLineif line theLine of me = "" and not checkTitle then exit MouseUpselect line theLine of meput item 1 of line theLine of me into fif char 1 of f is not "6" and addFolder and¬":" is in line theLine of me thendelete char (offset(":",f)) to length of f of fput ":" before felse put "" into fput vol & f into maybeif checkTitle thenput fld "Title" into theFileelse put removePath(item 1 of line theLine of me) into theFileput item 2 of line theLIne of me into theTypeput FindFile(maybe,theFile,"",exact) into fileListput fileList into fileNamerepeat with z = 1 to number of lines of fileNameset cursor to busyput line z of fileName into fdelete char 1 to (offset(":",f)) of fdelete char 1 to (offset(":",f)) of fput f into line z of fileNameend repeatget XScrollBox(1,"Select a file to view:",fileName)go this cdif it = "" then exit MouseUpput line (item 1 of it) of fileList into theFiledelete char 1 to (offset(":",theFile)) of theFileput theFile into item 1 of line theLine of meend MouseUpon MouseUpput "Ref. & Pres. Lib.v5.0:" into volput word 2 of the clickLine into theLineput vol & pathWay(item 1 of line theLine of me) into maybestdFile maybeput fileName() into fileNameif fileName is not "" thenput fileName into item 1 of line theLine of meend ifend MouseUp</script>
</part>
<part>
<id>34</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>0</top>
<right>512</right>
<bottom>52</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>PresPath</name>
<script></script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>231</left>
<top>311</top>
<right>282</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Script Hider</name>
<script></script>
</part>
<part>
<id>51</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>180</left>
<top>311</top>
<right>231</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>View Hider</name>
<script></script>
</part>
<part>
<id>65</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>407</left>
<top>313</top>
<right>432</right>
<bottom>341</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>128</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev Hide</name>
<script></script>
</part>
<part>
<id>66</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>313</top>
<right>456</right>
<bottom>341</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>129</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next Hide</name>
<script></script>
</part>
<part>
<id>69</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>280</left>
<top>311</top>
<right>331</right>
<bottom>342</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Copy Hider</name>
<script></script>
</part>
<part>
<id>85</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>177</left>
<top>253</top>
<right>505</right>
<bottom>273</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Aplgaram</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Application Used</name>
<script></script>
</part>
<part>
<id>86</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>285</left>
<top>271</top>
<right>496</right>
<bottom>291</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Aplgaram</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Depth Supported</name>
<script></script>
</part>
<part>
<id>87</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>421</left>
<top>233</top>
<right>478</right>
<bottom>247</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Notes</name>
<script></script>
</part>
<part>
<id>90</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>135</top>
<right>156</right>
<bottom>174</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Types</name>
<script></script>
</part>
<part>
<id>91</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>39</left>
<top>130</top>
<right>115</right>
<bottom>145</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>No View</name>
<script></script>
</part>
<part>
<id>93</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>99</left>
<top>245</top>
<right>512</right>
<bottom>303</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>App Hider</name>
<script></script>
</part>
<part>
<id>95</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>122</top>
<right>512</right>
<bottom>174</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>CopyPath</name>
<script></script>
</part>
<name>Pres</name>
<script>on arrowKey tKif tK = "Right" thenclick at loc of bg btn "Next"else if tK = "Left" then click at loc of bg btn "Prev"else pass arrowKeyend arrowKeyon openCardglobal gNoLaunch6,gCDVolume6,gOtherCdList6,gGlobalInit6spinCursorif gGlobalInit6 = "" then exit openCardif gNoLaunch6 contains "True" thenif gNoLaunch6 contains "Volume" thenspinCursorif (gCDVolume6 is in VolumeList()) then put false into gNoLaunch6end ifend ifput ((gNoLaunch6 contains true) or (fld "PresPath" = "" and¬fld "ScriptPath" = "")) into hideAllBtnsspinCursorif hideAllBtns thenshow bg btn "View Hider"show bg btn "Copy Hider"show bg btn "Script Hider"elseset visible of bg btn "View Hider" to (fld "PresPath" = "" or hilite of bg btn "No View")set visible of bg btn "App Hider" to (fld "PresPath" = "" or hilite of bg btn "No View")set visible of bg btn "Script Hider" to (fld "ScriptPath" = "")hide bg btn "Copy Hider"end ifspinCursorif number of lines of gOtherCdList6 = 2 or gOtherCdList6 = "" thenshow bg btn "Next Hide"show bg btn "Prev Hide"elseset visible of bg btn "Next Hide" to (line 1 of gOtherCdList6 = number of lines of gOtherCdList6)set visible of bg btn "Prev Hide" to (line 1 of gOtherCdList6 = 2)end ifend openCardon PlayMovie movieNameif last char of movieName is ":" then exit PlayMovieif there is a window "Movie Window" thenset replaceMovie of window "Movie Window" to movieNamesend pause to window "movie window"get the resultif "Error" is in it thenanswer "Unable to play that movie" & return & itexit PlayMovieend ifset loop of window "Movie Window" to truesend "Play" to window "Movie Window"elseQTMovie OpenMovie,Windoid,movieName,position,loop,nocontroller,pausedget the resultif "Error" is in it thenanswer "Unable to play that movie" & return & itexit PlayMovieend ifget "set windowName of window "& quote & removePath(movieName) & quote &"to "& quote&¬"Movie Window"& quotedo itsend showController to window "movie window"send "Play" to window "Movie Window"end ifend PlayMovieon closeBackgroundif there is a window "Movie Window" thenclose window "Movie Window"end ifend closeBackground</script>
